home *** CD-ROM | disk | FTP | other *** search
- on mouseDown
- global textDispVisible,PSMdispVisible,Master,PSMtextVis,topicLetter, subtopicNumber,lineSelect,mediaChoice,mediaName,mediaField
-
-
- put line lineSelect of field mediaField into mediaList
-
- if item 1 of mediaList = 2 then
- put item 2 of mediaList into mediaName
- end if
- if item 3 of mediaList = 2 then
- put item 4 of mediaList into mediaName
- end if
-
- set master = "MI2"
-
- -- set the castNum of sprite 41 to the number of cast (mediaName && mediaChoice)
-
- set mediaChoice = 1.0
-
- global PSMdispVisible
-
- if not PSMdispVisible then
- openPSMdisp
- end if
-
- PSMupdate
- updateSTage
-
- global gMute, gFade
-
- if gMute = 0 then
- repeat while the volume of sound 2 < (255 - 4)
- set the volume of sound 2 to (the volume of sound 2 + 4)
- updateStage
- put the timer into time
- repeat while the timer <= time
- nothing
- end repeat
- end repeat
- set the volume of sound 2 to 255
- updateStage
- set gFade = 0
- end if
-
- ----------- AUTO OPEN TEXT DISPLAY
- global gAutoOpenTextDisplay
- if gAutoOpenTextDisplay = 1 then
- set the visible of sprite 2 to true
- global PSMtextVis
- if PSMtextVis then
- closePSMtext
- else
- openPSMtext
- end if
- end if
- -------------------
-
-
- end
-
-
-
- on mouseenter
- ShowTextRoll "TextRoll-Pict"
- end
-
- on mouseleave
- HideTextRoll
- end